home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Language/OS - Multiplatform Resource Library
/
LANGUAGE OS.iso
/
lisp
/
kcl
/
akcl
/
akcl1615.lha
/
lsp
/
loadcmp.lsp
< prev
next >
Wrap
Lisp/Scheme
|
1990-11-07
|
1KB
|
48 lines
(in-package 'compiler)
(format t "~%Loading the whole compiler...")
(let ((sysd (concatenate 'string si::*system-directory* "../cmpnew/")))
(load (merge-pathnames (concatenate 'string si::*system-directory*
"../lsp/defstruct")))
(dolist (v '(
"cmpinline"
"cmputil"
"cmptype"
"cmpbind"
"cmpblock"
"cmpcall"
"cmpcatch"
"cmpenv"
"cmpeval"
"cmpflet"
"cmpfun"
"cmpif"
"cmplabel"
"cmplam"
"cmplet"
"cmploc"
; "cmpmain"
"cmpmap"
"cmpmulti"
"cmpspecial"
"cmptag"
"cmptop"
"cmpvar"
"cmpvs"
"cmpwt"
))
(load (merge-pathnames v sysd)))
(load (merge-pathnames "cmpmain.lsp" sysd)))
(defun compile-file
(&rest system::args &aux (*print-pretty* nil) (*package* *package*))
(compiler::init-env) (apply 'compiler::compile-file1 system::args))
(defun compile (&rest system::args &aux (*print-pretty* nil))
(apply 'compiler::compile1 system::args))
(defun disassemble (&rest system::args &aux (*print-pretty* nil))
(apply 'compiler::disassemble1 system::args))
(setf (symbol-function 'si:clear-compiler-properties)
(symbol-function 'compiler::compiler-clear-compiler-properties))